home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_12 / whitworth / !KeyUtils / Lock (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-01-08  |  307 b   |  14 lines
  1.  >Lock
  2.  "Password needed to unlock? "pw$
  3.  pw$="" 
  4.  pw$="ANGEL"
  5. (1280),
  6. (1024)
  7. -T>100 
  8.  "Password? ";
  9.  ;""p$
  10.  p$<>pw$ 
  11.  BUGGER THIS 
  12.  A LARK!
  13.  "Wimp_CommandWindow",-1
  14.